unit U_agent;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBGridEhGrouping, GridsEh, DBGridEh, ExtCtrls, RzPanel,
  DBCtrls, StdCtrls, RzLabel, Mask, DBCtrlsEh, RzDBNav,WSCstFrm;

type
  TFormAgent = class(TWSCustomForm)
    DataSource1: TDataSource;
    RzPanel1: TRzPanel;
    DBGridEh1: TDBGridEh;
    DBEditEh1: TDBEditEh;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    DBEditEh2: TDBEditEh;
    DBEditEh3: TDBEditEh;
    DBEditEh4: TDBEditEh;
    DBEditEh5: TDBEditEh;
    DBEditEh6: TDBEditEh;
    RzDBNavigator1: TRzDBNavigator;
  private
    { Private declarations }
  protected
    procedure iniForm; override;
       
  public
    { Public declarations }
  end;

var
  FormAgent: TFormAgent;

implementation
   uses CommonDM;
{$R *.dfm}

procedure TFormAgent.iniForm;
begin
  inherited;
   with CommonData.adoqAgent do
   begin
     Close;
     Open;

   end;
end;

end.
